10 DATA"BASIC-DEMO","FOLGT","IN 4 WOCHEN!"
20 POKE53280,6:PRINT"[147]":FORA=1024TO2023:POKE54272+A,INT(RND(1)*16):POKEA,224:NEXT
30 FORB=1TO3:READA$(B):PRINT""TAB(20-INT(LEN(A$(B))/2))A$(B):NEXT
40 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]"